home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / proged1.lha / InstallProgED / SASC_support / FirstError.script < prev    next >
Text File  |  1995-09-21  |  551b  |  33 lines
  1. /*******************************************
  2.  *
  3.  * FirstError.script
  4.  * by Giovanni Lambiase (C) 1995
  5.  *
  6.  * This Arexx macro jump to first error in
  7.  * SCMSG list. If you don't want that SCMSG
  8.  * close its window when it's empty, then
  9.  * comment out 'HIDE' command.
  10.  *
  11.  *******************************************/
  12.  
  13. OPTIONS RESULTS
  14. OPTIONS FAILAT 31
  15.  
  16. IF SHOW('PORTS','SC_SCMSG') THEN
  17. DO
  18.     ADDRESS 'SC_SCMSG'
  19.  
  20.     /* If no errors -> close SCMSG */
  21.     'TEXT'
  22.     IF RESULT='' THEN
  23.     DO
  24.         'HIDE'
  25.     END
  26.     ELSE
  27.     DO
  28.         /* Jump to 1st error */
  29.         'TOP'
  30.         'SELECT'
  31.     END
  32. END
  33.